home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs05.d81 / hideprg.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  5KB  |  82 lines
  1. 10 POKE56,64:CLR:GOTO2015
  2. 15 Q$=CHR$(34):PRINT"[147]"
  3. 20 PRINT"ENTER DEVICE #, TO LOAD DISK DIRECTORY."
  4. 22 PRINT"(ENTER 0 TO EXIT.)"
  5. 25 PRINT"  8[145]":INPUTD
  6. 27 IFD-8AND252THENPOKE56,160:END
  7. 30 POKE186,D
  8. 31 SYS49822
  9. 32 IFPEEK(783)AND1THEN300
  10. 34 PRINT"[147]LOADING DIRECTORY FROM DISK..."
  11. 40 SYS51183
  12. 41 N=144-PEEK(156):M=PEEK(156)-PEEK(155):F=1:L=M:IFM>NTHENM=N:F=.
  13. 42 IFL>N+PEEK(155)THENL=N+PEEK(155)
  14. 44 PRINT"THIS DISK CONTAINS:"
  15. 45 PRINT:PRINTPEEK(156)-PEEK(155)-PEEK(2),"VISIBLE ACTIVE FILES."
  16. 46 PRINT:PRINTPEEK(2),"HIDDEN ACTIVE FILES."
  17. 47 PRINT:PRINTPEEK(155),"DELETED (SCRATCHED) FILES."
  18. 48 PRINT"THE MAXIMUM NUMBER OF HIDDEN FILES"
  19. 49 PRINT"ALLOWED IS:";M;"[157].":IFPEEK(155)=.ORFTHEN56
  20. 50 PRINT"YOU MAY INCREASE THAT NUMBER TO";L;"BY"
  21. 51 PRINT"REMOVING THE SCRATCHED FILE ENTRIES."
  22. 52 PRINT"BUT IF YOU DO, YOU WILL NEVER BE UNABLE"
  23. 53 PRINT"TO RECOVER THEM.  PRESS R TO REMOVE THE"
  24. 54 PRINT"SCRATCHED FILE ENTRIES.  OTHERWISE,"
  25. 56 PRINT"PRESS RETURN.";
  26. 57 GETA$:IFA$=CHR$(13)THENF=.:N=N-PEEK(2):GOTO60
  27. 58 IFA$=CHR$(82)THENF=1:N=N-PEEK(2)+PEEK(155):GOTO60
  28. 59 GOTO57
  29. 60 POKE2,N
  30. 61 SYS51204
  31. 63 PRINT"SELECT FILE BY MOVING POINTER WITH"
  32. 65 PRINT"CURSOR UP/DOWN.  ALL ENTRIES ARE"
  33. 70 PRINT"VISIBLE EXCEPT THOSE FOLLOWED BY AN ";Q$;"H";Q$;".";
  34. 75 PRINT"PRESS T TO TOGGLE BETWEEN VISIBLE AND"
  35. 77 PRINT"HIDDEN.  WHEN FINISHED, PRESS RETURN."
  36. 80 PRINT"NOTE: IF YOU WANT TO SCRATCH A HIDDEN"
  37. 82 PRINT"FILE, BE SURE TO MAKE IT VISIBLE FIRST."
  38. 85 PRINT"PRESS RETURN WHEN READY."
  39. 90 PRINT"PRESS X TO EXIT.";
  40. 100 GETA$:IFA$=CHR$(13)THEN150
  41. 130 IFA$="X"THENPOKE56,160:END
  42. 140 GOTO100
  43. 150 GOSUB380:GOTO600
  44. 300 PRINT"[147]?DEVICE";D;"NOT PRESENT":CLR:GOTO20
  45. 380 PRINT"[147]       CURSOR U/D MOVES POINTER."
  46. 385 PRINT"   PRESS T TO TOGGLE HIDDEN/VISIBLE."
  47. 390 PRINT"      PRESS RETURN WHEN FINISHED."
  48. 397 PRINT"****************************************"
  49. 400 RETURN
  50. 600 SYS51213
  51. 680 IFPEEK(783)AND1THEN750
  52. 683 SYS50709
  53. 685 PRINT"FILE CANNOT BE HIDDEN.  THE MAXIMUM"
  54. 687 PRINT"NUMBER HAS ALREADY BEEN REACHED."
  55. 688 PRINT"PRESS RETURN."
  56. 690 GETA$:IFA$=CHR$(13)THEN700
  57. 695 GOTO690
  58. 700 GOSUB380:SYS51250:GOTO680
  59. 750 SYS50709
  60. 755 PRINT"PRESS R TO RETURN TO SELECT MODE."
  61. 760 PRINT"PRESS S TO SAVE DIRECTORY TO DISK."
  62. 765 PRINT"PRESS RETURN TO START OVER."
  63. 770 GETA$:IFA$=CHR$(13)THEN10
  64. 775 IFA$="S"THEN790
  65. 780 IFA$="R"THEN785
  66. 782 GOTO770
  67. 785 GOSUB380:SYS51250:GOTO680
  68. 790 POKE2,F
  69. 794 PRINT"[147]SAVING DIRECTORY TO DISK"
  70. 795 SYS51233
  71. 799 GOTO10
  72. 2015 PRINT"[147][142]ONE MOMENT PLEASE..."
  73. 2020 P=PEEK(45)+256*PEEK(46)-1
  74. 2025 IFPEEK(P)THENP=P-1:GOTO2025
  75. 2030 FORI=.TO22:READY:POKE53000+I,Y:NEXT
  76. 2035 POKE53,56:POKE54,200:POKE251,199:POKE252,247
  77. 2040 POKE254,P/256:POKE253,PAND255:SYS53000
  78. 2045 POKE2063,48:GOTO10
  79. 2050 DATA160,0,177,253,145,53,152,208,4
  80. 2055 DATA198,54,198,254,136,230,251
  81. 2060 DATA208,240,230,252,208,236,96
  82.